program main;
use tsv2012_test;
use jm_input_data;
use jm_h_swave_calc_mod;
implicit none;

call tsv2012_test_all();
call jm_input_read("../jm_data_input_121130.txt");
call jm_h_swave_calc();

end program
